10 PRINTCHR$(147);CHR$(14);:REM CLEAR      SCREEN & LOWER CASE
20 :PRINT"";CHR$(18)" [195][207][204][207][213][210][160][195][207][205][194][201][206][193][212][201][207][206][211] [196][197][205][207][206][211][212][210][193][212][201][207][206] ":REM TITLE
30 REM CREDITS AND INSTRUCTIONS
40 PRINT"[195]HARLIE [208]ATERSON   [212]ORONTO   [195]ANADA                 1983 07 20"
50 PRINT"    [212]HIS PROGRAM WILL DISPLAY EVERY"
60 PRINT"COLOUR COMBINATION. [212]HE RUNNING TIME"
70 PRINT"IS 4.5 [200]RS!!!! [212]O SHORTEN THAT TIME,"
80 PRINT"REDUCE THE TIMING COUNT IN LINE 280."
90 PRINT"[201]F THE COLOUR FOR THE CHARACTERS AND"
100 PRINT"BACKGROUND ARE THE SAME, NO PRINTING"
110 PRINT"WILL SHOW. [212]O ESCAPE PRESS [210][213][206]/[211][212][207][208]     & [210][197][211][212][207][210][197]."
120 FOR TM = 1 TO 10000:NEXT TM:REM         INSTRUCTION DELAY
130 NC = 0:REM INITIALIZE COMBO COUNT
135 REM COLOUR DATA
140 :DATA 144,5,28,159,156,30,31,158
150 :DATA 129,149,150,151,152,153,154,155
155 REM BORDER COLOUR SELECT
160 :FOR BO = 0 TO 15
170 : POKE 53280, BO
175 REM BACKGROUND COLOUR SELECT
180 : FOR BA = 0 TO 15
190 :  POKE 53281, BA
195 REM CHARACTER SELECTION
200 :FOR C = 0 TO 15
210 : READ CR
220 : PRINT CHR$(CR);:NC = NC+1
225 REM DISPLAY COLOUR NUMBERS              AND COMBINATION COUNT
230 :PRINTCHR$(147);"";"   COLOURS   "
240 :PRINT"";CHR$(18);"BORDER     =";PEEK(53280) AND 15"[157] "
250 :PRINT"";CHR$(18);"BACKGROUND =";PEEK(53281) AND 15"[157] "
260 :PRINT"";"CHARACTERS =";C
270 :PRINT"";"COLOUR COMBO # IS ";NC
280 FOR X = 1 TO 2000: NEXT X:REM VIEW      TIME FOR EACH COMBINATION
285 REM LOOP REPEATS
290 :NEXT C:REM NEXT CHARACTER
300 RESTORE
310 :NEXT BA:REM NEXT BACKGROUND
320 IF BO = 15 THEN 340
330 :NEXT BO:REM NEXT BORDER
335 REM PRINT TOTAL COMBINATIONS COUNT      (4096).
340 :PRINTCHR$(144);"TOTAL # OF COLOUR COMBINATIONS WAS "NC
350 END